SUBROUTINE DISKO(N,NAM,J)
C N=DEVICE NUMBER, NAM=FILE NAME, J=0=OUTPUT, =-1=INPUT
	IF(J.LT.0)GO TO 1

         CALL OFILE(N,NAM)
CXX	CALL OPEN(N,NAM,0,'NEW',,,'UNF')
	RETURN
1        CALL IFILE(N,NAM)
CXX	CALL OPEN(N,NAM,0,'RDO',,,'UNF')
	END

	BLOCK DATA
	COMMON /DEVS/ID1,ID21,JTYPE,ID23,ID20
	DATA JTYPE/5/,ID23/23/,ID20/20/,ID1/1/,ID21/21/
	END

C***********************************************
C****NEXT MUST BE REWRITTEN FOR PDP11 ***********
C***********************************************
	SUBROUTINE PACKER(NAM,INP)
	DATA IBLA/' '/,ISEMI/';'/,IARO/"575004020100/,IEQU/'='/
C****** THE BIG NUMBER=LEFT ARROW
   	DOUBLE PRECISION NAM
	DIMENSION INP(1),KNM(5)
	DATA KK/128/,LL/"377777777777/,JJ/"2000000000/
	1 , MM/"774000000000/

	NAM=0  
	DO 1 J=1,80
	N=INP(J)
	IF(N.EQ.IARO.OR.N.EQ.IEQU)GO TO 2
1	IF(N.EQ.IBLA.OR.N.EQ.ISEMI)GO TO 2
2	II=J
	J=J-1
	N=J
	IF(J.GT.4)N=4
4	DO 10 K=1,4
	IF(K.GT.N)GO TO 11
	KNM(K)=INP(K)
	GO TO 10
11	KNM(K)=IBLA
10	CONTINUE
	KNM(5)=IBLA
C ABOVE FOR PDP10 ONLY*********
C N=WDCNT 
	DO 12 K=5,1,-1
	NAM=NAM .OR. (KNM(K) .AND. MM)
	IF (K.EQ.1)RETURN
17	IF (NAM.GE.0)GO TO 13
	NAM = (( NAM .AND. LL)/KK) .OR. JJ
	GO TO 12
13	NAM = NAM / KK
12	CONTINUE

	END